home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / OpusAWeb.dopus5 < prev    next >
Text File  |  1998-08-10  |  474b  |  25 lines
  1. /*
  2.  * OpusAWebFTP.dopus5
  3.  * $VER: OpusAWebFTP.rexx 1.2 (14.5.96)
  4.  *
  5.  * Copy to your Dopus5:Arexx directory
  6.  * Add these lines to the Setting/Network 3: External programs
  7.  *
  8.  *    Command:   Sys:Rexxc/RX
  9.  *    Arguments: Dopus5:Arexx/OpusAWebFTP.dopus5 %s %s
  10.  */
  11.  
  12. address dopus.1
  13.  
  14. if ~show('P','DOPUS.1') then exit 20
  15.  
  16. parse arg host dir .
  17.  
  18. if host ~= '' then do
  19.   dopus front
  20.   if dir ~= '' then command ftpconnect host 'dir' dir
  21.   else command ftpconnect host
  22.   end
  23.  
  24. exit
  25.